(make-face): Return the face name, not the vector.

diff --git a/lisp/faces.el b/lisp/faces.el
index 8f008a42898a61415ad7dad4b6f5b038d414242d..ff208f8352fdfca3e7f22677cb453532eca6705e 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -230,7 +230,8 @@ If the face already exists, it is unmodified."
        ;; when making a face after frames already exist
        (if (eq window-system 'x)
            (make-face-x-resource-internal face))
-       face)))
+       face))
+  name)
 
 ;; Fill in a face by default based on X resources, for all existing frames.
 ;; This has to be done when a new face is made.